home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / text / xes.lha / XES / REXX / SavePrefs.xdme < prev    next >
Text File  |  1995-08-01  |  916b  |  42 lines
  1. /* $VER: SavePrefs.xdme 1.0 (01 Aug 1995) */
  2.  
  3. lowcase = "abcdefghijklmnopqrstuvwxyz"
  4. upcase = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  5. options results
  6. 'rxresult $filename'
  7. outfile = result || ".xsrc"
  8.  
  9. 'rxresult $mode'
  10. mode = result
  11. select
  12.     when mode = "ANSI C / C++" then md = "c-mode"
  13.     when mode = "K&R C" then md = "krc-mode"
  14.     otherwise md = translate(mode, lowcase, upcase) || "-mode"
  15. end
  16. 'rxresult $indcol'
  17. i = result
  18. 'rxresult $parcol'
  19. p = result
  20. 'rxresult $margin'
  21. m = result
  22. line = md "setindcol" i "setparcol" p "margin" m
  23. call open(output, outfile, "W")
  24. call writeln(output, line)
  25. vars = "_f0 _f1 _ff _h0 _h1 _hf _l _r _t _b _p _N _Tl"
  26. do i = 1 to words(vars)
  27.     call writevar(word(vars,i))
  28. end
  29. call close(output)
  30.  
  31. exit
  32.  
  33. WriteVar:
  34.     parse arg v
  35.     xcom = "rxresult $" || v
  36.     xcom
  37.     x = result
  38.     if x = "RESULT" then x = ""
  39.     line = "settvar" v "(" || x || ")"
  40.     call writeln(output, line)
  41. return
  42.